home *** CD-ROM | disk | FTP | other *** search
/ Aminet 26 / Aminet 26 (1998)(GTI - Schatztruhe)[!][Aug 1998].iso / XiPaint / Install < prev    next >
Text File  |  1998-07-17  |  12KB  |  546 lines
  1. ; $VER: XiPaint (19.3.96)
  2. ; Script to install Xipaint 4.0
  3.  
  4. (complete 0)
  5. ;=============================================================================
  6. ; English strings
  7.  
  8. (if (= @language "english")
  9. (
  10. (set default_lang 2)
  11.  
  12.  
  13.  
  14. (set #unpack
  15. (cat "Working on unpacking the help files ... "
  16. ))
  17.  
  18. (set #unpack2
  19. (cat "Working on unpacking the XiPaint Libraries ... "
  20. ))
  21.  
  22. (set #multipic
  23. (cat "Copying multipic.library to libs: ... "
  24. ))
  25.  
  26.  
  27. (set #nohelp
  28. (cat "No help available at this moment."
  29. ))
  30.  
  31. (set #askfpu
  32. (cat "Has your Amiga a FPU? (For faster Raytracing)"
  33. ))
  34.  
  35.  
  36. (set #bad-kick
  37. (cat "You must be using Kickstart 2.0 or higher to install XiPaint 4.0"
  38. ))
  39.  
  40. (set #introduction
  41. (cat "\n\nThis program lets you install XiPaint 4.0 on a hard drive."
  42. ))
  43.  
  44. (set #ask-function
  45. (cat "\n\nSelect \"XiPaint  4.0\" to do a complete installation of "
  46.      "XiPaint 4.0, or select \"Update Help-Files\" to modify which languages "
  47.      "are available on a hard drive with XiPaint 4.0 already installed."
  48. ))
  49.  
  50. (set #ask-function-1
  51. (cat "Yes I have"
  52. ))
  53.  
  54. (set #ask-function-2
  55. (cat "No, Sorry"
  56. ))
  57.  
  58. (set #fpu-help
  59. (cat "\nYou must choose which operation you would like to "
  60.      "perform.\n\n"
  61.      "Yes installs a faster version of the raytracer-module, but "
  62.      "this version will not work on Amiga without a FPU. \n"
  63.      "An Amiga with 68040 normally has a FPU, a Draco 68040 has not\n"
  64. ))
  65.  
  66. (set #confirm-target
  67. (cat "\nXiPaint 4.0 will now be installed on your hard drive. "
  68.      "Do you want XiPaint 4.0 installed in the \"%s\" partition?"
  69. ))
  70.  
  71. (set #confirm-target-help
  72. (cat "Choose Yes to install the new XiPaint-files to the "
  73.      "displayed directory."
  74. ))
  75.  
  76.  
  77. (set #confirm-target-lang
  78. (cat "\n\nThe available XiPaint 4.0 help-files on your hard drive will now be "
  79.      "updated. Your XiPaint 4.0 files appear "
  80.      "to be located in the \"%s\" "
  81.      "partition.\n\n"
  82.      "Is this correct?"
  83. ))
  84.  
  85. (set #confirm-target-lang-help
  86. (cat "\nThe installer has determined that your current copy of "
  87.      "Workbench is in the partition named \"%s\". Proceeding with the "
  88.      "installation will cause the XiPaint help files to be copied there. "
  89. ))
  90.  
  91. (set #which-disk-lang
  92. (cat "Where is XiPaint installed (to install the help files)? "
  93. ))
  94.  
  95.  
  96. (set #reboot-lang
  97. (cat "\nThe update of XiPaint 4.0 help files is now complete.\n\n"
  98. ))
  99.  
  100. (set #which-disk
  101. (cat "Where should the XiPaint40 drawer be located?"
  102. ))
  103.  
  104. (set #which-disk-help
  105. (cat "\nThis section lets you choose on which hard drive partition the "
  106.      "XiPaint 4.0 files will be installed.  "
  107.      @askdir-help
  108. ))
  109.  
  110.  
  111. (set #checking-target
  112. (cat "\n\nChecking \"%s\" for obsolete files..."
  113. ))
  114.  
  115. (set #delete-old-1
  116. (cat "Delete Automatically"
  117. ))
  118.  
  119. (set #delete-old-2
  120. (cat "Ask Before Deleting"
  121. ))
  122.  
  123. (set #deleting-obsolete
  124. (cat "\n\nDeleting obsolete files..."
  125. ))
  126.  
  127. (set #confirm-delete
  128. (cat "\n\nShould the file \"%s\" be deleted?"
  129. ))
  130.  
  131. (set #confirm-delete-help
  132. (cat "\nThe file \"%s\" is no longer "
  133.      "useful under XiPaint 4.0. You can delete the file by selecting "
  134.      "the \"Yes\" gadget, or preserve the file by selecting the \"No\" "
  135.      "gadget."
  136. ))
  137.  
  138.  
  139. (set #confirm-delete-1
  140. (cat "Yes"
  141. ))
  142.  
  143. (set #confirm-delete-2
  144. (cat "No"
  145. ))
  146.  
  147. (set #ask-xipaint
  148. (cat "\n\nPlease insert the \"XiPaint\" disk in any floppy drive."
  149. ))
  150.  
  151. (set #ask-extras
  152. (cat "\n\nPlease insert the \"XiExtras\" disk in any floppy drive."
  153. ))
  154.  
  155. (set #ask-libs
  156. (cat "\n\nPlease insert the \"XiLibs\" disk in any floppy drive."
  157. ))
  158.  
  159.  
  160. (set #which-driver
  161. (cat "Which Graphicadapter should be installed?"
  162. ))
  163.  
  164. (set #which-driver-help
  165. (cat "\nXiPaint can control many different graphicadapters. "
  166.      "These drivers are libraries that let XiPaint adapt to a given "
  167.      "graphicadapter. "
  168.      "Check the boxes of the drivers you wish "
  169.      "to have available on your system.\n\n"
  170.      @askoptions-help
  171. ))
  172.  
  173.  
  174.  
  175.  
  176. (set #xiprefs-start
  177. (cat "\nThe installation of XiPaint 4.0 is now complete.\n\n "
  178.      "XiPrefs will be startet to choose your graphic-adapter. "
  179.      "Select the \"Proceed\" to start XiPrefs.\n\n"
  180. ))
  181. (set #xiprefs-start-help
  182. (cat "XiPaint doesn't know, which display you want to "
  183.      "use. So please set the undo-memory and the display-type. "
  184.      "You can change this settings whenever you want."
  185. ))
  186.  
  187. ))
  188.  
  189.  
  190.  
  191.  
  192. ;=============================================================================
  193. ; German strings
  194.  
  195. (if (= @language "deutsch")
  196. (
  197. (set default_lang 1)
  198.  
  199.  
  200. (set #unpack
  201. (cat "Entpacke die Hilfe-Dateien ... "
  202. ))
  203.  
  204. (set #unpack2
  205. (cat "Entpacke die Xi-Libraries ... "
  206. ))
  207.  
  208. (set #multipic
  209. (cat "Kopiere die multipic.library nach libs: ... "
  210. ))
  211.  
  212. (set #vlablib
  213. (cat "Kopiere die vlab.library nach libs: ... "
  214. ))
  215.  
  216. (set #nohelp
  217. (cat "Es ist derzeit keine Hilfe vorhanden (sniff)"
  218. ))
  219.  
  220. (set #bad-kick
  221. (cat "Sie müssen Kickstart 2.0 oder höher zum Installieren von XiPaint 4.0 benutzen."
  222. ))
  223.  
  224. (set #introduction
  225. (cat "\n\nHiermit können Sie XiPaint 4.0 auf einer "
  226.      "Festplatte installieren. "
  227. ))
  228.  
  229. (set #askfpu
  230. (cat "Hat Ihr Amiga eine FPU?\n (Für schnelleres Raytracing)"
  231. ))
  232.  
  233. (set #ask-function-1
  234. (cat "Ja"
  235. ))
  236.  
  237. (set #ask-function-2
  238. (cat "Nein"
  239. ))
  240.  
  241. (set #fpu-help
  242. (cat "\nSie müssen auswählen, was installiert werden soll.\n\n"
  243.      "Hat Ihr Amiga eine FPU (auch die meisten 68040er Amiga haben eine!) "
  244.      "So wird eine schnellere Version des Raytracers installiert. \n "
  245.      "Wenn nicht (so wie der Draco 68040), so wird eine IEEE-Version des Raytracers installiert\n"
  246. ))
  247.  
  248. (set #confirm-target
  249. (cat "\n\nDieses Programm installiert XiPaint 4.0 auf Ihrer Festplatte. "
  250.      "Wollen Sie die XiPaint40-Schublade auf der Partition \"%s\" installiert "
  251.      "bekommen?"
  252. ))
  253.  
  254. (set #confirm-target-help
  255. (cat "Wenn Sie im angegebenen Verzeichnis XiPaint-Files updaten möchten, "
  256.      "so bejahen sie diesen Requester. "
  257. ))
  258.  
  259.  
  260. (set #confirm-target-lang
  261. (cat "\n\nDie unter XiPaint 4.0 verfügbaren Sprachen werden jetzt auf Ihrer "
  262.      "Festplatte aktualisiert. Ihre XiPaint 4.0 Datein sind "
  263.      "offenbar auf der Partition \"%s\" installiert.\n\n"
  264.      "Ist das korrekt?"
  265. ))
  266.  
  267. (set #confirm-target-lang-help
  268. (cat "\nDer Installer hat herausgefunden, daß die aktuellen "
  269.      "XiPaint-Dateien offenbar in der Partition namens \"%s\" liegen. "
  270.      "Wenn Sie die Installation einfach weiterlaufen lassen, werden die "
  271.      "Sprachendateien dorthin kopiert."
  272. ))
  273.  
  274. (set #which-disk-lang
  275. (cat "Wo ist XiPaint installiert (um die Hilfedateien zu ergänzen)? "
  276. ))
  277.  
  278.  
  279. (set #reboot-lang
  280. (cat "\nDie Aktualisierung der XiPaint 4.0 ist nun abgeschlossen.\n\n"
  281. ))
  282.  
  283. (set #which-disk
  284. (cat "Wo soll die XiPaint40 Schublade installiert werden?"
  285. ))
  286.  
  287. (set #which-disk-help
  288. (cat "\nHier können Sie wählen, auf welcher Festplattenpartition "
  289.      "die Dateien von XiPaint 4.0 installiert werden sollen. "
  290.      @askdir-help
  291. ))
  292.  
  293.  
  294. (set #checking-target
  295. (cat "\n\nÜberprüfen von \"%s\" auf überholte Dateien ..."
  296. ))
  297.  
  298.  
  299. (set #delete-old-1
  300. (cat "Automatisch löschen"
  301. ))
  302.  
  303. (set #delete-old-2
  304. (cat "Löschen bestätigen"
  305. ))
  306.  
  307. (set #deleting-obsolete
  308. (cat "\n\nLöschen überholter Dateien"
  309. ))
  310.  
  311. (set #confirm-delete
  312. (cat "\n\nKann die Datei \"%s\" gelöscht werden?"
  313. ))
  314.  
  315. (set #confirm-delete-help
  316. (cat "\nDie Datei "
  317.      "\"%s\" ist unter XiPaint 4.0 überholt. Sie können die Datei "
  318.      "durch Anklicken von \"Ja\" löschen oder durch Anklicken von \"Nein\" "
  319.      "erhalten."
  320. ))
  321.  
  322.  
  323.  
  324. (set #confirm-delete-1
  325. (cat "Ja"
  326. ))
  327.  
  328. (set #confirm-delete-2
  329. (cat "Nein"
  330. ))
  331.  
  332.  
  333.  
  334.  
  335. (set #xiprefs-start
  336. (cat "Die Installation der XiPaint 4.0 ist nun abgeschlossen.\n\n"
  337.      "Um die richtigen Treiber für Ihre Grafikkarte einstellen zu können "
  338.      "wird nun XiPrefs gestartet. Wählen Sie die gewünschte Grafikkarte und "
  339.      "Displaymodus aus.\n"
  340. ))
  341. (set #xiprefs-start-help
  342. (cat "XiPaint benötigt noch die Display-Einstellungen Ihrer Grafikkarte. "
  343.      "Daher wird nun XiPrefs gestartet. Stellen Sie die gewünschte Auflösung "
  344.      "und den gewünschten Undo-Speicher ein. Sie können jederzeit Änderungen "
  345.      "mit XiPrefs vornehmen.\n"
  346. ))
  347.  
  348. ))
  349.  
  350.  
  351.  
  352.  
  353.  
  354. ;=============================================================================
  355. ; Check whether this system is operating with at least Kickstart 2.04 (V37).
  356. ; Otherwise refuse any further action! For lature usage this will remember
  357. ; the Kickstart and the Workbench Versions in the variables kickVersion and
  358. ; wbVersion.
  359.  
  360. (set kickVersion (shiftright (getversion) 16))
  361. (if (< kickVersion 37)
  362.    (
  363.    (message #bad-kick)
  364.    (exit (quiet))
  365.    )
  366. )
  367.  
  368. ;
  369.  
  370. ;=============================================================================
  371. ; do a bit of set up...
  372.  
  373. (set sourcePath (expandpath (pathonly @icon)))
  374.  
  375.  
  376. (set sourcePath (tackon sourcePath "XiPaint"))  ; XiPaint - Things will be in the XiPaint Drawer
  377. (set old_xipaint (@default-dest))
  378. ;=============================================================================
  379. ; what do you want to do?
  380.  
  381. (user 2)
  382.  
  383. (message #introduction)
  384.  
  385. (
  386.  
  387. ;******************************************************************
  388. ;******************* FULL INSTALL *********************************
  389. ;******************************************************************
  390.  
  391. ;=============================================================================
  392. ; say hi!
  393.  
  394. (user 0)
  395. (welcome)
  396. (set old_level @user-level)
  397.  
  398. ;=============================================================================
  399. ; get target directory where update is to be installed
  400. (user 2)
  401. (if (= (strlen old_xipaint) 0)
  402. (
  403.     (user 2)
  404.     (set target (askdir (prompt #which-disk)
  405.             (help #which-disk-help)
  406.             (default "")
  407.             (disk)
  408.         )
  409.     )
  410.     (user old_level)
  411. )
  412. (
  413.     (if (askbool (prompt (#confirm-target old_xipaint))
  414.          (help (#confirm-target-help old_xipaint))
  415.          (default 1)
  416.     )
  417.     (
  418.     (set target old_xipaint)
  419.     )
  420.     (
  421.     (set target (askdir (prompt #which-disk)
  422.                 (help #which-disk-help)
  423.                 (default old_xipaint)
  424.                 (disk)
  425.             )
  426.     )
  427.     ))
  428. ))
  429.  
  430. (set @default-dest target)
  431. (user old_level)
  432. ;=============================================================================
  433. ; make some new drawers
  434.  
  435. (set target (tackon target "XiPaint40"))
  436. (set @default-dest target)
  437. (makedir target (infos))
  438.  
  439. ;=============================================================================
  440. ; looking for multipic.library  (Very important)
  441. (copylib (prompt #multipic) (source (set sourcePath "libs/multipic.library")) (dest "libs:") (confirm)
  442.      (help #nohelp))
  443. (rename "libs:multipic.library" "libs:multipic.library")
  444.  
  445.  
  446. ;=============================================================================
  447. ; look for the cpu
  448.  
  449. (set mycpu (database "cpu"))
  450.  
  451. (if (= mycpu "68000")
  452. (
  453.   ((set sourcePath "68000"))
  454. )
  455. )
  456.  
  457. (if (= mycpu "68010")
  458. (
  459.   ((set sourcePath "68000"))
  460. )
  461. )
  462.  
  463. (if (= mycpu "68040")
  464. (
  465.   ((set sourcePath "68040"))
  466. )
  467. )
  468.  
  469. (if (= mycpu "68020")
  470. (
  471.   ((set sourcePath "68020+"))
  472. )
  473. )
  474.  
  475. (if (= mycpu "68030")
  476. (
  477.   ((set sourcePath "68020+"))
  478. )
  479. )
  480.  
  481. ; Will not work - sorry!
  482. (if (= mycpu "68060")
  483. (
  484.   ((set sourcePath "68020+"))
  485. )
  486. )
  487.  
  488. (complete 2)
  489.  
  490. (makedir (tackon target "languages"))
  491. (makedir (tackon target "makros"))
  492. (makedir (tackon target "pictures"))
  493. (makedir (tackon target "brush"))
  494. (makedir (tackon target "modules"))
  495. (makedir (tackon target "libs"))
  496.  
  497. (complete 5)
  498. (copyfiles (source sourcePath) (dest target )(all) )
  499. ; (copyfiles (source sourcePath) (dest target )(pattern "#?")(files) )
  500. (copyfiles (source sourcePath) (dest target )(pattern "#?.info") )
  501.  
  502. (complete 85)
  503. (user 2)
  504.  
  505.  
  506.   (if (<> mycpu "68000")
  507.   (
  508.     ; if its a 68000 - no FPU is possible ...
  509.     (if (askbool (prompt #askfpu)
  510.          (help #fpu-help)
  511.          (choices #ask-function-1 #ask-function-2)
  512.          (default 1)
  513.     )
  514.     (
  515.       ; Yes, I have a FPU
  516.       (copyfiles (source (tackon sourcePath "ray881")) (dest target) (newname "ray") (files) )
  517.  
  518.     )
  519.     ; No, I have no FPU - Do nothing
  520.     )
  521.   )
  522. )
  523.  
  524. (complete 95)
  525.  
  526. (if (askbool (prompt (#xiprefs-start))
  527.          (help (#xiprefs-start-help))
  528.          (default 1)
  529.     )
  530. (
  531.     (set #xiprefs "XiPrefs_E")    ; for initialisation
  532.     (
  533.      if (= @language "deutsch")
  534.       (set #xiprefs "XiPrefs")    ; for initialisation
  535.     )
  536.  
  537.  
  538.     (run (cat "\"" (tackon target #xiprefs) "\""))
  539. )
  540. )
  541. (complete 100)
  542. (user old_level)
  543.  
  544. )
  545.  
  546.